home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)st.d64 / sid tuner v1.0 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  255 lines
  1. 100 PRINT"[147]":IFLD=0THENLD=1:GOSUB4000:LOAD"STEREO.MOD",8,1
  2. 200 IFLD<2THENLD=2:LOAD"BOX",8,1
  3. 250 DIM CN$(24),MP(24),MX(24),MN(24)
  4. 300 PRINT"IS EXTRA SID CHIP[160]INSTALLED ?"
  5. 350 PRINT"ENTER 0 IF NONE":PRINT"      1 IF AT $DE00"
  6. 400 PRINT"      2 IF AT $DF00":PRINT"   1";:INPUT"[157][157][157]";N:LC=-(N>0)*(221+N)
  7. 500 SS=49167:POKE SS+4,LC:NR=16:V=53248:W=V+39:POKEV+29,7:POKEV,140:POKEV+1,215
  8. 600 DEF FNCL(C)=6*(C-1)-5*(C>3):T$="[157][145]HXBS+P":POKE2040,14:PRINT"[147]"
  9. 700 POKE2041,15:POKE2042,13:POKEV+5,215:POKEV+4,188
  10. 800 DEF FNBT(X)=X-(X<0)*256:DEF FNSN(X)=X+(X>127)*256:REM POKE&PEEK SIGNED NUMS
  11. 900 DN=8:SA=780:SX=781:SY=782:SP=783:M1=49199:M2=253:S1=54270:S2=2539-256*(N=2)
  12. 1000 DEF FNCC(R)=55394+40*R:Z=SS+5:SF=2560-256*(N=2)
  13. 1100 FOR N=1TO24:READCN$(N),MP(N),MN(N),MX(N):NEXT
  14. 1200 DATA ATK,0,0,15,DCY,0,0,15,SUS,3,0,15,RLS,3,0,15,PNT,19,0,255,WAV,91,0,8
  15. 1210 DATA P-W,76,0,4095,P-S,70,-128,127,VDP,46,1,127,VRT,49,1,127
  16. 1300 DATA POR,25,0,16383,TPS,52,-95,95,DTN,58,-2048,2047,SNC,97,0,1,RNG,94,0,1
  17. 1310 DATA FLT,8,0,1,TEM,10,56,1800,VOL,9,0,15,F-M,9,1,7,AUT,82,-128,127
  18. 1312 DATA  RES,8,0,15,F-C,88,0,255,F-S,85,-128,127,3-0,9,0,1
  19. 1400 POKE53280,9:POKE53281,9:PRINT"[147][158]":GOSUB6000
  20. 1500 PRINT"[147][152]  LEFT CHANNEL          RIGHT CHANNEL":POKEV+39,8:POKEV+41,8
  21. 1520 PRINT" 1[146][183][183][183][183][183]2[146][183][183][183][183][183]3[146]          1[146][183][183][183][183][183]2[146][183][183][183][183][183]3"
  22. 1530 PRINT" [184]     [184]     [184]          [184]     [184]     [184][129]"
  23. 1540 FORR=1TO16:PRINTTAB(18)CN$(R):NEXT
  24. 1600 PRINT"[129]    [175]                      [175]"
  25. 1650 PRINT"   [170]B[146][180]BREAKS OUT OF LOOP  [170]S[146][180]STAYS IN"
  26. 1700 PRINT"   [175][183]                      [183][175]"
  27. 1750 PRINT"  [170]X[146][180]ENDS SONG  SID TUNER [146] [170]H[146][180]GETS HELP"
  28. 1800 PRINT"  [175][183]                        [183]  [175]"
  29. 1900 PRINT" [170]+[146][180]DISPLAYS OTHER PARAMETERS [170]P[146][180]PRINTS[158]";:POKEV+21,7
  30. 2000 XX=0:R=1:GOSUB7500:R=1:C=1:POKEV+21,7:POKEV+27,7:GOSUB2900:GOSUB3000
  31. 2100 POKEV+40,0:XX=1:RH=R:CH=C:GOSUB7500:R=RH:C=CH
  32. 2200 GOSUB3300:IFA=7THEN5400
  33. 2210 IFA=10THEN15000
  34. 2230 ONAGOSUB7300,2300,2400,2500,2600,2700,3850,2750,2760,3850,2775
  35. 2240 IFA=6ORA=11THEN1500
  36. 2250 GOTO2100
  37. 2300 IFC=NVTHENC=1:GOTO3000
  38. 2350 C=C+1:GOTO3000
  39. 2400 IFC=1THENC=NV:GOTO3000
  40. 2450 C=C-1:GOTO3000
  41. 2500 GOSUB3200:IFR=1THENR=NR:GOTO2900
  42. 2550 R=R-1:GOTO2900
  43. 2600 GOSUB3200:IFR=NRTHENR=1:GOTO2900
  44. 2650 R=R+1:GOTO2900
  45. 2700 POKEV+21,0:PRINT"[147]         SID TUNER INSTRUCTIONS"
  46. 2705 PRINT"USE CURSOR CONTROLS TO SELECT VOICE[164]&[164][164]  PARAMETER TO CHANGE. ";
  47. 2710 PRINT"THEN PRESS RETURN[146]  AND ENTER NEW VALUE.":BR$="      [164]"+CHR$(13)
  48. 2715 PRINTBR$"PRESS +[146] TO CHANGE SCREENS (THERE ARE TWO SCREENS, ONE FOR ";
  49. 2720 PRINT"VOICE PARAMS & ONE FOR CHANNEL PARAMS).":PRINTBR$"PRESS B[146] TO ";
  50. 2725 PRINT"BREAK OUT OF A HED-TAL LOOP.":PRINTBR$"PRESS S[146] TO STAY IN A ";
  51. 2730 PRINT"HED-TAL LOOP (IF    LOOP IS AT SAME POINTS IN EACH VOICE).":PRINTBR$;
  52. 2735 PRINT"PRESS P[146] TO PRINT OUT CURRENT SETTINGS.":PRINTBR$"PRESS X[146] TO ";
  53. 2740 PRINT"HALT MUSIC. THEN IF YOU WANT  YOU CAN START IT AGAIN (PARAMS RESET)."
  54. 2743 PRINT"               - - - - - -":PRINT"(FOR MORE DETAILED INSTRUCTIONS,";
  55. 2745 PRINT" PRESS[164]  RUN/STOP[146]/RESTORE[146], ENTER 'RUN', PRESS H[146])"
  56. 2747 GOTO6040
  57. 2750 T=1
  58. 2755 FORI=49315TOI+2:POKEI,T:NEXT:FORI=49571TOI+2:POKEI,T:NEXT:RETURN
  59. 2760 T=0:GOTO2755
  60. 2775 POKEV+21,0
  61. 2777 PRINT"[147]GET PRINTER READY, & ENTER A LABEL"
  62. 2780 INPUT"(OR 'A' TO ABORT PRINT)";A$
  63. 2785 IF A$="A"THENRETURN
  64. 2790 OPEN4,4:PRINT#4,A$:FORR=1TO16:PRINT#4,CN$(R);:FORC=1TONV:GOSUB20000
  65. 2793 PRINT#4,X;SPC(10-LEN(STR$(X)));:NEXT
  66. 2795 PRINT#4:NEXT:PRINT#4
  67. 2800 FORR=17TO24:PRINT#4,TAB(20)CN$(R);:FORC=3TONV-2:GOSUB17000
  68. 2820 PRINT#4,X;SPC(20-LEN(STR$(X)));:NEXT:PRINT#4:NEXT:PRINT#4:PRINT#4
  69. 2830 CLOSE4:RETURN
  70. 2900 CC=FNCC(R):FORCC=CCTOCC+3:POKECC,0:NEXT:POKEV+3,65+R*8:RETURN
  71. 3000 CC=23+8*FNCL(C):POKEV+2,CCAND255:IFCC>255THENPOKEV+16,2:RETURN
  72. 3100 POKEV+16,0:RETURN
  73. 3200 CC=FNCC(R):FORCC=CCTOCC+3:POKECC,8:NEXT:RETURN
  74. 3300 IFA$=CHR$(13)THENA=1:RETURN
  75. 3400 FORA=1TOLEN(T$):IFA$=MID$(T$,A,1)THENA=A+1:RETURN
  76. 3500 NEXT:A=12:RETURN
  77. 3600 IFR=16THENMA=49208-M2*(C>3):RETURN
  78. 3610 MA=M1-M2*(C>3)+C+MP(R):IFR<5THENSL=S1-S2*(C>3)+7*C+INT(R/3):RETURN
  79. 3700 IF R=7 THENSL=54267-S2*(C>3)+7*C
  80. 3800 RETURN
  81. 3850 PRINT"[147]PROGRAM ERROR !!!  A="A:END
  82. 3900 POKE211,FNCL(C):POKE214,R+2:SYS58732:PRINT"     [157][157][157][157][157]"X:RETURN
  83. 4000 POKE53280,9:POKE53281,9:PRINTCHR$(142)"[147]";
  84. 4020 PRINT"[146][129]ucccccccccccccccccccccccccccccccccccccci";
  85. 4040 PRINT"b [158]uci[178][176]ci [176][178][174][178] [178][176]i[178][176]c[174][178]ci              [129]b";
  86. 4060 PRINT"b [158]jcibb b  b b bbbb[171][179] [171][178]k VERSION 1.0  [129]b";
  87. 4080 PRINT"b [158]jck[177][173]ck  [177] jck[177]j[189][177]c[189][177]jccccccccccccck [129]b";
  88. 4100 PRINT"jcccccccccccccccccccccccccccccccccccccck";
  89. 4120 PRINT"             [158]JOHN L. TURNER"
  90. 4140 PRINT"             [129][163][163][163][163] [163]  [163][163][163][163][163][163]"
  91. 4160 PRINT"                INCLUDES"
  92. 4180 PRINT"        SID STEREO PLAYER MODULE"
  93. 4200 PRINT"           COPYRIGHT (C) 1987"
  94. 4220 PRINT"          BY MARK A. DICKENSON"
  95. 4240 PRINT"  [164][164][164][164][164][164][164]SCREEN[164]DESIGN[164]J[164]A[164]GRAU[164][164][164][164][164][164][164]"
  96. 4260 PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  97. 4280 PRINT"                                [164]"
  98. 4300 PRINT"      TO SEE A HELP FILE, PRESS H[146]"
  99. 4320 PRINT"        TO BEGIN, PRESS ANY KEY"
  100. 4340 GETQ$:IFQ$=""THEN4340
  101. 4400 IF Q$="H"THENGOSUB4700
  102. 4600 PRINT"[147]  LOADING [158]PLAYER MODULE .....":RETURN
  103. 4700 PRINTCHR$(14)"[147][155]":OPEN2,8,2,"TUNERDOCS,S,R"
  104. 4800 INPUT#2,A$:IFA$="ND"THENGOSUB6040:CLOSE2:PRINTCHR$(142):RETURN
  105. 4900 IFA$="PG"THENGOSUB6040:GOTO4800
  106. 5000 PRINTA$:GOTO 4800
  107. 5100 PRINT"[151]<PRESS ANY KEY TO CONTINUE>[155]"
  108. 5200 GETX$:IFX$=""THENGOSUB5800:GOTO5200
  109. 5300 POKEV+40,0:RETURN
  110. 5400 POKEV+21,0:SYS49152:VV=54296:POKEVV,0:IFNTHENPOKEVV+SF,0:POKE211,0
  111. 5500 POKE214,22:SYS58732:PRINT"PRESS 'R'[146] TO REPLAY,'P'[146] TO PRINT VALUES,";
  112. 5520 PRINT"   OR ANY KEY TO PLAY ANOTHER SONG"
  113. 5550 GET A$:IFA$=""THEN5550
  114. 5600 IF A$="R" THEN GOSUB 7000:GOTO1500
  115. 5620 IF A$="P"THEN GOSUB 2775:PRINT"[147]":GOTO 5500
  116. 5636 GOTO 1400
  117. 5800 IFTI>TXTHENTX=TI+5:L=6-6*(L<10):FORN=39TO41:POKEV+N,L:NEXT:RETURN
  118. 5900 RETURN
  119. 6000 INPUT"     FILENAME  $[157][157][157]";F$:IF F$<>"$"THEN6090
  120. 6005 OPEN1,8,2,"$":FORX=1TO141:GET#1,A$:NEXT:J=17:GOSUB6055
  121. 6010 PRINT"[147]DISK NAME: "B$:PRINT"MUSIC FILES:":FORX=1TO95:GET#1,A$:NEXT:I=0
  122. 6015 FORP=1TO8:GET#1,A$,A$,A$:J=15:GOSUB6055:R$=RIGHT$(B$,4)
  123. 6020 IFR$=".MUS"ORR$=".STR"THENI=I+1:PRINTB$:IFI=20THENI=0:GOSUB6040
  124. 6025 FORX=1TO11:GET#1,A$:NEXT:IFSTTHENCLOSE1:GOSUB6070:GOSUB6040:GOTO6000
  125. 6030 IFP<8THENGET#1,A$,A$
  126. 6035 NEXTP:GOTO6015
  127. 6040 PRINTTAB(10)"PRESS ANY KEY TO CONTINUE";
  128. 6045 GETA$:IFA$=""THEN6045
  129. 6050 PRINT"[147]":RETURN
  130. 6055 B$="":FORX=0TOJ:GET#1,A$
  131. 6060 IFA$<>CHR$(96)THENIFA$<>CHR$(160)THENB$=B$+A$
  132. 6065 NEXT:RETURN
  133. 6070 OPEN15,8,15:PRINT#15,"I":CLOSE15:RETURN
  134. 6090 FL$=F$+".MUS":PRINT"CHECK LEFT CHANNEL = ";
  135. 6100 PRINT"  "FL$;:FORI=1TOLEN(FL$)+3:PRINT"[157]";:NEXT:INPUTFL$:IFLC=0THEN7200
  136. 6200 INPUT"IS THERE A RIGHT CHANNEL(Y/N)";Y$:IFY$="N"THENNV=3:GOTO6500
  137. 6300 FR$=F$+".STR":PRINT"RIGHT CHANNEL =   "FR$;:FORI=1TOLEN(FR$)+3:PRINT"[157]";
  138. 6400 NEXT:INPUTFR$:NV=6
  139. 6500 F$=FL$:LA=PEEK(49)+256*PEEK(50)+1000:PRINT"   LOADING: "F$
  140. 6600 HI=INT(LA/256):LO=LA-256*HI:POKESS,LO:POKESS+1,HI:GOSUB10200:IFPTHEN6000
  141. 6700 IFNV=3THEN7000
  142. 6800 F$=FR$:PRINT"   LOADING: "F$:HI=INT(LA/256):LO=LA-256*HI:POKE49169,LO
  143. 6900 POKE49170,HI:GOSUB10200:IFPTHEN6000
  144. 7000 SYS49155:POKE49172,7:IF NV=6 THEN POKE 49173,7:RETURN
  145. 7100 RETURN
  146. 7200 NV=3:GOTO6500
  147. 7300 R2=R+2:GOSUB8600
  148. 7400 GOSUB9600:GOSUB8650:GOSUB8700:GOTO 2900
  149. 7500 FOR R=RTONR:FORC=1TONV:GOSUB20000
  150. 8300 GOSUB3900:GETA$:IFA$<>""ORXX=0THENRETURN
  151. 8400 NEXT:IFPEEK(Z)+PEEK(Z+1)=0THENSYS49152:SYS49155:POKEZ,7:POKEZ-(LC>0),7
  152. 8500 NEXT:R=1:GOTO7500
  153. 8600 POKE211,15:POKE214,22:SYS58732:PRINT"           [157][157][157][157][157][157][157][157][157][157][157]"MN(R)
  154. 8610 POKE211,20:POKE214,22:SYS58732:PRINTMX(R)
  155. 8620 POKE211,FNCL(C):POKE214,R2:SYS58732:PRINT"      [157][157][157][157][157]";:RETURN
  156. 8650 POKE211,14:POKE214,22:SYS58732:PRINT" [129] SID TUNER [146][158]";:RETURN
  157. 8700 GOSUB3600:Y=PEEK(MA)
  158. 8800 ONRGOTO8900,9000,8900,9000,9500,9500,9100,9400,9500,9500,9100,9300,9400
  159. 8850 ONR-13GOTO9500,9500,9420
  160. 8900 X=X*16OR(YAND15):POKEMA,X:POKESL,X:RETURN
  161. 9000 X=XAND15OR(YAND240):POKEMA,X:POKESL,X:RETURN
  162. 9100 HI=INT(X/256):LO=X-256*HI:POKEMA,LO:POKEMA+3,HI:IFR<>7THENRETURN
  163. 9200 POKESL,LO:POKESL+1,HI:RETURN
  164. 9300 OC=-INT(X/12):NT=X+12*OC:POKEMA,FNBT(OC):POKEMA+3,FNBT(NT):RETURN
  165. 9400 X=X-(X<0)*65536:GOTO9100
  166. 9420 MA=49208-256*(C>3):Y=PEEK(MA):N=C+3*(C>3):IFX=0THEN9450
  167. 9430 X=YOR(2^(N-1)):GOTO18600
  168. 9440 POKEMA,X:RETURN
  169. 9450 ONNGOTO9460,9470,9480
  170. 9460 X=YAND254:GOTO18600
  171. 9470 X=YAND253:GOTO18600
  172. 9480 X=YAND251:GOTO18600
  173. 9500 POKEMA,FNBT(X):RETURN
  174. 9600 XX$="":POKEV+21,7
  175. 9700 GOSUB5200:IFX$=CHR$(13)THENX=VAL(XX$):POKEV+39,8:POKEV+41,8:GOTO10150
  176. 9800 IFASC(X$)=20ANDLEN(XX$)THENPRINT"[157] [157]";:XX$=LEFT$(XX$,LEN(XX$)-1):GOTO9700
  177. 9900 IFX$>"/"ANDX$<":"THENXX$=XX$+X$:PRINTX$;:GOTO9700
  178. 10000 IF LEN(XX$)=0ANDX$="-"THENXX$=X$:PRINTX$;:GOTO9700
  179. 10100 GOTO9700
  180. 10150 IFX>MX(R)THENX=MX(R):RETURN
  181. 10160 IFX<MN(R)THENX=MN(R):RETURN
  182. 10170 RETURN
  183. 10200 POKESA,1:POKE SX,DN:POKESY,0:SYS65466:GOSUB10600
  184. 10300 HI=INT(LA/256):LO=LA-256*HI
  185. 10400 POKESA,0:POKESX,LO:POKESY,HI:SYS65493:IFPEEK(SP)AND1GOTO10800
  186. 10500 LA=PEEK(SX)+256*PEEK(SY):P=0:RETURN
  187. 10600 FORK=1TO LEN(F$):POKE584+K,ASC(MID$(F$,K)):NEXT
  188. 10700 POKESA,LEN(F$):POKESX,73:POKESY,2:SYS65469:RETURN
  189. 10800 P=PEEK(SA):PRINT"ERROR:";:IFP=4THENPRINT"FILE NOT FOUND":RETURN
  190. 10900 IFP=5THENPRINT"DEVICE NOT PRESENT":RETURN
  191. 11000 PRINTST
  192. 11100 END
  193. 15000 PRINT"[147][152]   LEFT CHANNEL         RIGHT CHANNEL":POKEV+39,8:POKEV+41,8
  194. 15020 PRINT"   [183][183][183][183][183][183][183][183][183]123[146]         123[146][183][183][183][183][183][183][183][183][183][183]
  195. 15030 [153]"           FREFREFRE         FREFREFREFOR"
  196. 15040 [129]R[178]17[164]24:[153][163]18)CN$(R):[130]
  197. 15045 [129]I[178]1[164]8:[153]:[130]
  198. 15050 [153]"FOR    AND                      AND"
  199. 15060 [153]"   +BWAITSGNBREAKS OUT OF LOOP  +SWAITSGNSTAYS IN"
  200. 15070 [153]"   ANDUSR                      USRAND"
  201. 15080 [153]"  +XWAITSGNENDS SONG  SID TUNER WAIT +HWAITSGNGETS HELP"
  202. 15090 [153]"  ANDUSR                        USR  AND"
  203. 15100 [153]" ++WAITSGNDISPLAYS OTHER PARAMETERS +PWAITSGNPRINTSSYS";:[151]V[170]21,7
  204. 15110 R[178]17:C[178]3:[141]16900:[141]3000:CM[178]3[171](NV[177]3)
  205. 15120 RH[178]R:CH[178]C
  206. 15125 [129]R[178]17[164]24:[129]C[178]3[164]CM:[141]17000
  207. 15130 [141]15200:[161]A$:[139]A$[179][177]""[167]16000[155]16000
  208. 15140 [130]:[139][194](Z)[170][194](Z[170]1)[178]0[167][158]49152:[158]49155:[151]Z,7:[151]Z[171](LC[177]0),7
  209. 15150 [130]:[137]15125
  210. 15200 [151]211,[165]CL(C):[151]214,R[171]14:[158]58732:[153]"     CMDCMDCMDCMDCMD"X:[142]
  211. 16000 R[178]RH:C[178]CH:[141]3300:[139]A[178]7[167]5400
  212. 16010 [139]A[178]10[167]1500
  213. 16020 [145]A[141]18000,16300,16300,16500,16600,2700,3850,2750,2760,3850,2775
  214. 16030 [139]A[178]6[176]A[178]11[167]15000
  215. 16040 [137] 15120
  216. 16300 [139]NV[178]3[167][142]
  217. 16350 C[178]4[170](C[178]4):[137]3000
  218. 16500 [141]16800:[139]R[178]17[167]R[178]24:[137]16900
  219. 16550 R[178]R[171]1:[137]16900
  220. 16600 [141]16800:[139]R[178]24[167]R[178]17:[137]16900
  221. 16650 R[178]R[170]1:[137]16900
  222. 16800 CC[178][165]CC(R[171]16):[129]CC[178]CC[164]CC[170]3:[151]CC,8:[130]:[142]
  223. 16900 CC[178][165]CC(R[171]16):[129]CC[178]CC[164]CC[170]3:[151]CC,0:[130]:[151]V[170]3,8[172]R[171]63:[142]
  224. 17000 MA[178]49200[170]MP(R):[139]C[178]4[167]MA[178]MA[170]256
  225. 17010 X[178][194](MA):[145]R[171]16[137]17020,20040,17040,17050,17060,20100,17050,17070
  226. 17020 [139]X[178]0[167]X[178]256
  227. 17025 X[178][181](14400[173]X):[142]
  228. 17040 X[178](X[175]112)[173]16:[142]
  229. 17050 X[178][165]SN(X):[142]
  230. 17060 X[178](X[175]240)[173]16:[142]
  231. 17070 X[178](X[175]128)[173]128:[142]
  232. 18000 R2[178]R[171]14:[141]8600:[141]9600:[141]8650:MA[178]49200[170]MP(R):[139]C[178]4[167]MA[178]MA[170]256
  233. 18010 Y[178][194](MA):[145]R[171]16[137]18100,18150,18200,18400,18350,18300,18400,18250
  234. 18100 [139] X[178]0[167]X[178]256
  235. 18110 X[178]([181](1800[173]X)[172]8)[175]255:[151]49210,X:[151]49466,X:[142]
  236. 18150 X[178](Y[175]240)[176]X:[137]18500
  237. 18200 X[178](Y[175]143)[176](X[172]16):[137]18500
  238. 18250 X[178](Y[175]127)[176](X[172]128):[137]18500
  239. 18300 [129]M[178]MA[164]MA[170]2:[151]M,X:[130]:[142]
  240. 18350 X[178](Y[175]15)[176](X[172]16):[137]18600
  241. 18400 X[178][165]BT(X):[129]M[178]MA[164]MA[170]2:[151]M,X:[130]:[142]
  242. 18500 [151]MA,X:[151]54296[171]SF[172](C[177]3),X:[142]
  243. 18600 [151]MA,X:[151]54295[171]SF[172](C[177]3),X:[142]
  244. 20000 [141]3600:X[178][194](MA)
  245. 20010 [145]R[137]20030,20040,20030,20040,20100,20100,20050,20060,20100,20100,20050
  246. 20020 [145]R[171]11[137]20070,20090,20100,20100,20080
  247. 20030 X[178](X[175]240)[173]16:[142]
  248. 20040 X[178]X[175]15:[142]
  249. 20050 X[178]X[170]256[172][194](MA[170]3):[142]
  250. 20060 X[178][165]SN(X):[142]
  251. 20070 X[178][171]12[172][165]SN(X)[170][165]SN([194](MA[170]3)):[142]
  252. 20080 MA[178]49208[171]256[172](C[177]3):X[178][194](MA):N[178]C[170]3[172](C[177]3):N[178]2[174](N[171]1):X[178][171]((X[175]N)[179][177]0):[142]
  253. 20090 X[178]X[170]256[172][194](MA[170]3):X[178]X[170](X[177]32767)[172]65536:[142]
  254. 20100 [142]
  255.